   1 .PERSONALITY
   2 .(C) 1980 R.C. TIETJENS
NT=0;CLEAR 
   1 .PERSONALITY
   2 .(C) 1980 R.C. TIETJENS
   3 CLEAR 
   4 NT=1
   5 GOTO 995
   6 .
   7 .
  51 PRINT "NONE";RETURN 
  52 .
  53 PRINT "SCANT";RETURN 
  54 .
  55 .
  56 .
  57 PRINT "AVERAGE";RETURN 
  58 PRINT "ABOVE AVERAGE";RETURN 
  59 PRINT "EXCEPTIONAL";RETURN 
  60 PRINT "SUPERABUNDANT";RETURN 
  61 PRINT "YOUNG";RETURN 
  62 .
  63 PRINT "YOUTHFUL";RETURN 
  64 .
  65 .
  66 .
  67 PRINT "MATURE";RETURN 
  68 PRINT "MIDDLE-AGED";RETURN 
  69 PRINT "OLD";RETURN 
  70 PRINT "ANCIENT";RETURN 
  71 PRINT "DIRTY";RETURN 
  72 PRINT "CLEAN";RETURN 
  73 PRINT "UNKEMPT";RETURN 
  74 PRINT "IMMACULATE";RETURN 
  75 PRINT "ROUGH";RETURN 
  76 PRINT "RAGGED";RETURN 
  77 PRINT "DANDYISH";RETURN 
  78 PRINT "FOPPISH";RETURN 
  79 PRINT "NON-DESCRIPT";RETURN 
  80 PRINT "IMPOSING";RETURN 
  81 PRINT "VERY STABLE";RETURN 
  82 .
  83 .
  84 .
  85 .
  86 PRINT "NORMAL";RETURN 
  87 PRINT "NEUROTIC";RETURN 
  88 PRINT "UNSTABLE";RETURN 
  89 .
  90 GOTO 800
  91 PRINT "OPTIMIST";RETURN 
  92 PRINT "ALTRUIST";RETURN 
  93 PRINT "KINDLY";RETURN 
  94 PRINT "CURIOUS";RETURN 
  95 PRINT "TRUSTING";RETURN 
  96 PRINT "EXACTING";RETURN 
  97 PRINT "PERCEPTIVE";RETURN 
  98 PRINT "STUDIOUS";RETURN 
  99 PRINT "HEDONIST";RETURN 
 100 PRINT "CARELESS";RETURN 
 101 PRINT "MISCHEVIOUS";RETURN 
 102 PRINT "CRUEL";RETURN 
 103 PRINT "BARBARIC";RETURN 
 104 PRINT "OBSESSIVE";RETURN 
 105 PRINT "CONTRARY";RETURN 
 106 PRINT "PRANKSTER";RETURN 
 107 PRINT "PESSIMIST";RETURN 
 108 PRINT "SOBER";RETURN 
 109 PRINT "CAUTIOUS";RETURN 
 110 PRINT "MOODY";RETURN 
 111 PRINT "VIOLENT";RETURN 
 112 PRINT "SERVILE";RETURN 
 113 PRINT "MALEVOLENT";RETURN 
 114 PRINT "BARBARIC";RETURN 
 201 PRINT "MODEST";RETURN 
 202 PRINT "ARROGANT";RETURN 
 203 PRINT "FRIENDLY";RETURN 
 204 PRINT "ALOOF";RETURN 
 205 PRINT "HOSTILE";RETURN 
 206 PRINT "WELL-SPOKEN";RETURN 
 207 PRINT "DIPLOMATIC";RETURN 
 208 PRINT "ABRASIVE";RETURN 
 211 PRINT "FORCEFUL";RETURN 
 212 PRINT "OVERBEARING";RETURN 
 213 GOTO 203
 214 PRINT "BLUSTERING";RETURN 
 215 PRINT "ANTAGONISTIC";RETURN 
 216 PRINT "RUDE";RETURN 
 217 PRINT "RASH";RETURN 
 218 GOTO 207
 221 PRINT "RETIRING";RETURN 
 222 PRINT "TACITURN";RETURN 
 223 GOTO 203
 224 GOTO 204
 225 GOTO 205
 226 GOTO 216
 227 PRINT "COURTEOUS";RETURN 
 228 PRINT "SOLITARY";RETURN 
 800 D=RND (10);IF D<9GOTO 80+D
 810 IF D=9PRINT "INSANE
 820 IF D=10PRINT "MANIACAL
 830 RETURN 
 901 .
 902 .
 903 .
 904 .
 905 PRINT "NORMAL",;N=0;RETURN 
 906 .
 907 PRINT "EXTROVERTED",;N=10;RETURN 
 908 PRINT "INTROVERTED",;N=20;RETURN 
 950 D=RND (10);GOTO N+D
 995 .BEGIN
1000 PRINT "WEALTH: ",;N=50;GOSUB 950
1010 PRINT "AGE: ",;N=60;GOSUB 950
1020 PRINT "APPEARANCE: ",;N=70;GOSUB 950
1030 PRINT "SANITY: ",;N=80;GOSUB 950
1032 S=D;PRINT ;CY=6
1035 PRINT "TENDENCIES:
1037 FOR D=0TO 24;@(D)=0;NEXT D
1038 G=RND (29)÷10
1039 IF S=7@(5)=1
1040 FOR R=1TO RND (30)÷10+3
1045 D=RND (8)+G
1047 IF S>8 G=RND (3)
1050 IF @(D)GOTO 1045
1052 N=R÷2;IF RM=0 CY=CY+8;CX=0
1055 GOSUB 90+D;@(D)=1
1060 NEXT R
1070 D=RND (8);C=RND (8);CY=CY-2
1080 PRINT "PERSONALITY:
1090 GOSUB 900+D;CX=0;GOSUB 200+N+C
1100 K=KP;RUN 
       1
       2
       6
       7
:RETURN ;RUN 
